home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1986 August / Ahoy_Magazine_86-08_1986_Double_L.d64 / Print Formatter (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  208b  |  10 lines
  1. 1 print"[147]":poke53280,6:poke53281,1:poke646,0
  2. 2 printtab(5)"commodares.....print formatter"
  3. 3 rem solution by
  4. 4 rem   james killman
  5. 5 rem
  6. 10 input v : if v=0 then end
  7. 20 g$=str$(int(v)):x=len(g$)
  8. 30 f$=str$(v+.005):print left$(f$,x+3)
  9. 40 goto 10
  10.